BEGIN "XGPQUE"
INTEGER ARRAY MESSAGE[1:32];
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;

IF FALSE THEN
 BEGIN STRING A; EQU(A,A); CALL(0,0); A←CVXSTR(0); A←CVSIX("0"); A←A[1 TO 1]; END;

CALL(CVSIX("READY!"),"SETNAM");

DDINIT; GETDDF("DSK:TMP.TMP[TMP,HPM]");
START_CODE MAIL 1,ACCESS(MESSAGE[1]); comment WRCV; END;
CALL(CVSIX("XGPQUE"),"SETNAM");
XGPUP(MESSAGE[2]);

END "XGPQUE";